5 KEY OFF
10 CLS
20 SCREEN 0,1
30 COLOR 7,0,0
32 CLS:LOCATE 3,,0
60 PRINT " The IBM Personal Computer offers many":PRINT:PRINT " powerful, standard features..."
65 GOTO 1000
70 LOCATE 15,10
80 PRINT "UPPER CASE"
90 A$=INPUT$(1)
100 RETURN
110 LOCATE 15,10
120 PRINT "lower case"
130 A$=INPUT$(1)
140 RETURN
150 LOCATE 15,10
160 COLOR 11
170 PRINT "COLOR TEXT"
180 A$=INPUT$(1)
190 RETURN
200 REM
210 COLOR 0,2
212 LOCATE 14,10:PRINT SPC(25)
220 LOCATE 15,10:PRINT " REVERSE IMAGE AND COLOR "
222 LOCATE 16,10:PRINT SPC(25)
230 A$=INPUT$(1)
240 RETURN
250 'LOCATE 15,10
260 'COLOR 7,4,1
270 'PRINT "  color border and text  "
280 'A$=INPUT$(1)
290 RETURN
300 REM
310 COLOR 15,1,0
312 LOCATE 14,10:PRINT SPC(15):COLOR 7,0:PRINT SPC(12)
320 COLOR 15,1:LOCATE 15,10:PRINT " BLINKING ";
330  COLOR 31,1
340 PRINT "TEXT ";:COLOR 0,0:PRINT SPC(12)
342 COLOR 15,1:LOCATE 16,10:PRINT SPC(15):COLOR 7,0:PRINT SPC(12)
350 A$=INPUT$(1)
360 RETURN
370 COLOR 7,0:LOCATE 14,10:PRINT SPC(15)
380 LOCATE 15,10:PRINT "CHARACTER COLOR";:PRINT SPC(15)
382 LOCATE 16,10:PRINT SPC(15)
385 LOCATE 17,7
390 FOR I=1 TO 7
400 COLOR I
410 PRINT I;
420 NEXT I
422 'PRINT:PRINT:FOR I=9 TO 15:COLOR I:PRINT I;:NEXT I
430 A$=INPUT$(1)
440 RETURN
450 LOCATE 15,1
460 PRINT SPACE$(40);
462 PRINT SPACE$(40);
464 PRINT SPACE$(40);
468 COLOR 7,0
470 LOCATE 15,10
480 PRINT "SOUND"
490 PLAY "t128l32o1cdefgabo2cdefgabo3cdefgab"
500 PLAY "t128l32o3bagfedco2bagfedco1bagfedc"
510 A$=INPUT$(1)
520 RETURN
530 SCREEN 1,0
540 COLOR 0,1
550 CLS
555 KEY OFF
560 LOCATE 15,8
580 PRINT "GRAPHICS"
590 LINE (25,25)-(275,175),3,B
600 CIRCLE (199,100),75,3,,,.8
602 PAINT (199,159),2,3
604 PAINT (0,199),1,3
606 GOSUB 9030
610 A$=INPUT$(1)
620 RETURN
630 CLS
640 CIRCLE (199,100),99,2,-0,-1,.8499999
641 CIRCLE (199,100),98,2,-0,-1,.8499999
642 CIRCLE (199,100),99,2,-1,-2,.8499999
643 CIRCLE (199,100),98,2,-1,-2,.8499999
644 CIRCLE (199,100),99,2,-2,-3,.8499999
645 CIRCLE (199,100),98,2,-2,-3,.8499999
646 CIRCLE (199,100),99,2,-3,-4,.8499999
647 CIRCLE (199,100),98,2,-3,-4,.8499999
648 CIRCLE (199,100),99,2,-4,-5,.8499999
649 CIRCLE (199,100),98,2,-4,-5,.8499999
650 CIRCLE (199,100),99,2,-5,-0,.8499999
651 CIRCLE (199,100),98,2,-5,-0,.8499999
660 PAINT (230,80),3,2
664 PAINT (180,40),2,2
666 PAINT (140,40),1,2
668 PAINT (140,120),0,2
669 PAINT (180,140),2,2
670 PAINT (230,120),1,2
800 A$=INPUT$(1)
805 COLOR ,0
806 A$=INPUT$(1)
810 RETURN
820 DEF SEG=&HB800
830 CLS:SCREEN 1
840 COLOR 0,1
850 BLOAD "B:MOUNTX.PIC"
860 A$=INPUT$(1)
870 RETURN
880 LOCATE 3,24:PRINT "Mountain";
890 A$=INPUT$(1)
900 RETURN
1000 GOSUB 70
1010 GOSUB 110
1020 GOSUB 150
1030 GOSUB 200
1040 GOSUB 250
1050 GOSUB 300
1060 GOSUB 370
1070 GOSUB 450
1080 GOSUB 530
1090 GOSUB 630
1095 GOSUB 830
1097 GOSUB 880
1100 COLOR 0,0,0
1110 A$=INPUT$(1)
1200 GOTO 1410
1205 DR=INT(RND*8)+1:PLAY "mbl14o3n"+STR$(INT(RND*50)):PRESET (XA(T),YA(T)):T=T+1:IF T>200 THEN T=1
1210 IF INKEY$<>"" THEN 1410
1215 RETURN
1220 XA(H)=X:YA(H)=Y
1225 X=X+XD(DR):Y=Y+YD(DR)
1230 IF POINT(X,Y)>0 THEN GOSUB 1205:X=XA(H):Y=YA(H):GOTO 1225 ELSE PSET(X,Y):PRESET (XA(T),YA(T)):H=H+1:T=T+1:IF H>200 THEN H=1
1235 IF T>200 THEN T=1:GOTO 1220 ELSE GOTO 1220
1240 GOTO 1220
1245 XA(H)=X:YA(H)=Y:X=X+XD(DR):Y=Y+YD(DR)
1250 IF POINT (X,Y)>0 THEN X=XA(H):Y=YA(H):DR=INT(RND*8)+1:GOTO 1245
1255 PSET (X,Y):H=H+1
1260 IF H>200 THEN H=1
1265 T=3
1270 GOTO 1220
1275 KEY OFF:SCREEN 1:DEF SEG=&HB800
1280 DEF FNTM(X$)=VAL(MID$(X$,4,2))*60+VAL(RIGHT$(X$,2))
1285 CLS:DEFINT A-Z
1290 DEF FNTM(X$)=VAL(MID$(X$,4,2))*60+VAL(RIGHT$(X$,2))
1295 X=0:Y=0:DR=1:H=0:T=0
1300 DEF FNXY(A,B)=A*2+1+B*80
1305 COLOR 0,1
1310 DIM YD(8),XD(8)  ' X&Y DIR. INCRS
1315 DIM XA(200),YA(200) ' X,Y VALUES
1320 FOR I=0 TO VAL(RIGHT$(TIME$,1)):ZZ=RND:NEXT I:ON INT(RND*3)+1 GOTO 1325,1330,1335
1325 BLOAD "WORM.PIC",0:GOTO 1340
1330 'BLOAD "WORM1.PIC",0:GOTO 150
1335 BLOAD "WORM2.PIC",0
1340 FOR I=1 TO 8:READ XD(I):NEXT I
1345 FOR I=1 TO 8:READ YD(I):NEXT I
1350 H=1:J=2
1355 X=RND*315:Y=RND*184:IF POINT(X,Y)=0 THEN PSET (X,Y) ELSE 1355
1360 PT=PT+1:IF PT<301 THEN 1355
1365 H=1
1370 T=2:DR=INT(RND*8)+1
1375 X=RND*300
1380 Y=RND*150
1385 IF POINT(X,Y)>0 THEN 1375
1390 TIME=FNTM(TIME$)+30: IF TIME>3600 THEN TIME=30
1395 GOTO 1245
1400 DATA 0,1,1,1,0,-1,-1,-1:' x incrs
1405 DATA -1,-1,0,1,1,1,0,-1:' y incrs
1410 REM
1415 SCREEN 1
1420 COLOR 1,0
1425 CLS
1430 LINE (0,80)-(319,199),0,BF
1435 DRAW "S4;BM159,90;C2;U7;R20;M-35,+35;R12;M+35,-35;U8;L43;D15;R10"
1440 PAINT (158,89),4,2
1445 DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
1450 PAINT (121,76),4,2
1455 DRAW "s4;bm110,130;c2;r75"
1460 DRAW "s4;bm178,7;c2;m-33,+33;r24;d20;r10;u20;r8;u8;l8;u25;"
1465 DRAW "s1;bm170,25;c2;m-33,+33;r33;u28;"
1470 PAINT (178,8),4,2
1475 FOR Q= 1 TO 1000:NEXT Q
1480 DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
1485 PAINT (129,145),4,2
1490 FOR Q= 1 TO 1000:NEXT Q
1495 DRAW "s3;bm150,195;c2;r45;u9;l30;M+30,-30;U15;M-18,-18;L14;M-15,+15;D9;R11;U7;M+8,-8;R7;M+10,+10;D14;M-35,+35;D5;
1500 PAINT (151,194),4,2
1505 DRAW "s3;bm205,155;c2;d25;m+10,-10;m+10,+10;u25;l6;d10;m-5,-5;m-5,+5;u10;l5;"
1510 PAINT (206,156),4,2
1515 DRAW "s3;bm225,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u10;l18;"
1520 DRAW "s3;bm230,157;d4;r6;u4;l6;"
1525 PAINT (226,156),4,2
1530 DRAW "s3;bm245,155;c2;d25;r20;u25;l20;"
1535 DRAW "s3;bm250,158;c2;d15;r8;u15;l8;"
1540 PAINT (246,156),4,2
1545 DRAW "s3;bm265,155;c2;d25;r7;u10;m+10,+10;r5;u25;l6;d10;m-10,-10;l5;
1550 PAINT (266,156),4,2
1555 DRAW "s3;bm287,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;
1560 PAINT (289,156),4,2
1565 DRAW "s3;bm307,155;c2;d17;r4;u17;l4;
1570 PAINT (308,156),4,2
1575 DRAW "s3;bm307,170;c2;d4;r4;u4;l4;
1580 PAINT (308,171),4,2
1585 PLAY"t36;o1;l10;c
1590 FOR Q=1 TO 2000:NEXT
1595 SCREEN 1
1600 COLOR 1,0
1605 CLS
1610 LINE (0,80)-(319,199),0,BF
1615 DRAW "S4;BM159,90;C2;U7;R20;M-35,+35;R12;M+35,-35;U8;L43;D15;R10"
1620 PAINT (158,89),4,2
1625 DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
1630 PAINT (121,76),4,2
1635 DRAW "s4;bm110,130;c2;r75"
1640 DRAW "s4;bm178,7;c2;m-33,+33;r24;d20;r10;u20;r8;u8;l8;u25;"
1645 DRAW "s1;bm170,25;c2;m-33,+33;r33;u28;"
1650 PAINT (178,8),4,2
1655 FOR Q= 1 TO 600:NEXT Q
1660 DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
1665 PAINT (129,145),4,2
1670 FOR Q= 1 TO 600:NEXT Q
1675 DRAW "s6;bm170,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
1680 PAINT (129,145),4,2
1685 PAINT (169,145),4,2
1690 DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
1695 PAINT (129,145),4,2
1700 DRAW "s3;bm205,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u11;l18;
1705 DRAW "s2;bm210,160;c2;u6;r8;d6;l8
1710 PAINT (206,155),4,2
1715 DRAW "s3;bm225,155;c2;d25;r7;u25;l7;"
1720 PAINT (226,156),4,2
1725 DRAW "s3;bm235,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;"
1730 PAINT (236,156),4,2
1735 DRAW "s3;bm255,155;c2;d25;r7;u10;r10;d10;r7;u25;l7;d10;l10;u10;l7;"
1740 PAINT (256,156),4,2
1745 DRAW "s3;bm275,155;c2;d5;r8;d20;r7;u20;r8;u5;l23;"
1750 PAINT (276,156),4,2
1755 DRAW "s3;bm305,155;c2;d17;r7;u17;l7;"
1760 PAINT (306,156),4,2
1765 DRAW "s3;bm305,172;c2;d4;r7;u4;l7;"
1770 PAINT (306,173),4,2
1775 PLAY "t45;o3;l32;dgb"
1780 PLAY "o4;d
1785 PLAY "p30"
1790 PLAY "o3;b
1795 PLAY "o4;l8;d
1800 FOR W = 1 TO 1500
1805 NEXT W
1810 CLS
1815 LINE (0,80)-(319,199),0,BF
1820 DRAW "s6;bm159,10;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
1825 PAINT (155,30),4,2
1830 DRAW "s6;bm159,70;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
1835 PAINT (155,90),4,2
1840 DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
1845 PAINT (121,76),4,2
1850 DRAW"s4;bm110,130;c2;r75"
1855 FOR Q= 1 TO 600:NEXT Q
1860 DRAW "s3;bm140,195;c2;r45;u9;l30;m+30,-30;u15;m-18,-18;l14;m-15,+15;d9;r11;u7;m+8,-8;r7;m+10,+10;d14;m-35,+35;d5;"
1865 PAINT (141,194),4,2
1870 DRAW "s3;bm205,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u11;l18;
1875 DRAW "s2;bm210,160;c2;u6;r8;d6;l8
1880 PAINT (206,155),4,2
1885 DRAW "s3;bm225,155;c2;d25;r7;u25;l7;"
1890 PAINT (226,156),4,2
1895 DRAW "s3;bm235,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;"
1900 PAINT (236,156),4,2
1905 DRAW "s3;bm255,155;c2;d25;r7;u10;r10;d10;r7;u25;l7;d10;l10;u10;l7;"
1910 PAINT (256,156),4,2
1915 DRAW "s3;bm275,155;c2;d5;r8;d20;r7;u20;r8;u5;l23;"
1920 PAINT (276,156),4,2
1925 DRAW "s3;bm305,155;c2;d17;r7;u17;l7;"
1930 PAINT (306,156),4,2
1935 DRAW "s3;bm305,172;c2;d4;r7;u4;l7;"
1940 PAINT (306,173),4,2
1945 PLAY "t45;o3;l32;dgb"
1950 PLAY "o4;d
1955 PLAY "p30"
1960 PLAY "o3;b
1965 PLAY "o4;l8;d
1970 FOR W = 1 TO 1500
1975 NEXT W
1980 IF INKEY$="" THEN 1980
1985 KEY OFF:DEFSNG S,A:SCREEN 1,0:COLOR 0,0:CLS:X=160:Y=100
1990 FOR T=1 TO 200:CIRCLE(RND*320,RND*200),RND*1,3:NEXT T
1995 CIRCLE (X,Y),50,1
2000 PAINT (X,Y),3,1
2005 FIRST =0:LAST=10:CLR=1:SET = 2.2:ANG =1:GOSUB 2025
2010 FIRST=14:LAST=22:CLR=2:SET=2.05:ANG=1.1:GOSUB 2025
2015 FIRST=31:LAST=48:CLR=1:SET=1.95:ANG=1.2:GOSUB 2025
2020 GOTO 2045
2025 FOR RING=FIRST TO LAST
2030 CIRCLE(X,Y),85+RING,CLR,SET,ANG,.2
2035 NEXT RING
2040 RETURN
2045 IF INKEY$="" THEN 2045 ELSE DEFINT S,A
2050 SCREEN 1,0
2055 COLOR 0,1
2060 CLS
2065 KEY OFF
2070 PRINT"              PROFITS-1980"
2075 DRAW "S3;bm32,40;c3;d194;r372;u194;l372;"
2080 DRAW "S3;bm33,40;c3;d193;r370;u193;l371;"
2085 DRAW"s3;bm82,40;c3;d194;r62;u194;r62;d194;r62;u194;r62;d194;"
2090 DRAW"s3;bm81,40;c3;d194;r62;u194;r62;d194;r62;u194;r62;d194;"
2095 PRINT"             (IN THOUSANDS)":PRINT:
2100 PRINT"     JAN   FEB  MARCH APRIL  MAY  JUNE"
2105 PRINT:PRINT" 90":PRINT:PRINT" 80":PRINT:PRINT" 70":PRINT:PRINT" 60":PRINT:PRINT" 50":PRINT:PRINT" 40":PRINT:PRINT" 30":PRINT:PRINT" 20":PRINT:PRINT" 10":
2110 FOR P=1 TO 500
2115 NEXT P
2120 LINE (35,80)-(78,182),1,BF
2125 LINE (84,67)-(124,182),1,BF
2130 LINE (131,95)-(170,182),1,BF
2135 LINE (177,87)-(216,182),1,BF
2140 LINE (222,60)-(262,182),1,BF
2145 LINE (268,72)-(308,182),1,BF
2150 FOR X = 1 TO 1000
2155 NEXT X
2160 IF INKEY$="" THEN 2160
9000 RUN "B:LOGO40.BAS"
9010 COLOR 7,0,0
9020 END
9030 PLAY "t255l64cdefgabo4cco3bagfedc"
9040 RETURN
9050 COLOR 7,0,0
